home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 10.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 35 3a 35 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:45:56 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 6d 2f 74 |s-20.3/l|isp/vm/t|
|000000a0| 61 70 65 73 74 72 79 2e | 65 6c 0a 3b 3b 3b 20 65 |apestry.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 74 61 70 65 73 74 72 79 |error "`|tapestry|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c2 c3 21 ac 82 | c4 13 c3 0d 42 15 c2 c6 |.!...!..|....B...|
|00000270| 21 ac 83 c7 16 06 c6 0d | 42 15 c7 87 22 20 5b 70 |!.......|B..." [p|
|00000280| 72 6f 76 69 64 65 20 74 | 61 70 65 73 74 72 79 20 |rovide t|apestry |
|00000290| 62 6f 75 6e 64 70 20 74 | 61 70 65 73 74 72 79 2d |boundp t|apestry-|
|000002a0| 76 65 72 73 69 6f 6e 20 | 22 31 2e 30 38 22 20 63 |version |"1.08" c|
|000002b0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000002c0| 20 74 61 70 65 73 74 72 | 79 2d 77 69 6e 64 6f 77 | tapestr|y-window|
|000002d0| 73 2d 63 68 61 6e 67 65 | 64 20 6e 69 6c 5d 20 32 |s-change|d nil] 2|
|000002e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 70 |).(defal|ias 'tap|
|000002f0| 65 73 74 72 79 20 23 5b | 28 26 6f 70 74 69 6f 6e |estry #[|(&option|
|00000300| 61 6c 20 66 72 61 6d 65 | 2d 6c 69 73 74 29 20 22 |al frame|-list) "|
|00000310| 08 ae 82 c1 20 c2 20 c3 | 20 c4 1d 1e 06 1e 07 1e |.... . .| .......|
|00000320| 08 c9 8e 0e 08 ab 98 ca | 0e 08 40 21 88 cb 20 cc |........|..@!.. .|
|00000330| 20 cd 20 45 0d 42 15 0e | 08 41 89 16 08 ac 68 29 | . E.B..|.A....h)|
|00000340| 0e 07 0d 2c 44 87 22 20 | 5b 66 72 61 6d 65 2d 6c |...,D." |[frame-l|
|00000350| 69 73 74 20 74 61 70 65 | 73 74 72 79 2d 66 72 61 |ist tape|stry-fra|
|00000360| 6d 65 2d 6c 69 73 74 20 | 74 61 70 65 73 74 72 79 |me-list |tapestry|
|00000370| 2d 66 72 61 6d 65 2d 6d | 61 70 20 74 61 70 65 73 |-frame-m|ap tapes|
|00000380| 74 72 79 2d 73 65 6c 65 | 63 74 65 64 2d 66 72 61 |try-sele|cted-fra|
|00000390| 6d 65 20 6e 69 6c 20 6f | 74 68 65 72 2d 6d 61 70 |me nil o|ther-map|
|000003a0| 73 20 73 66 20 66 72 61 | 6d 65 2d 6d 61 70 20 66 |s sf fra|me-map f|
|000003b0| 72 61 6d 65 73 20 28 28 | 74 61 70 65 73 74 72 79 |rames ((|tapestry|
|000003c0| 2d 73 65 6c 65 63 74 2d | 66 72 61 6d 65 20 73 66 |-select-|frame sf|
|000003d0| 29 29 20 74 61 70 65 73 | 74 72 79 2d 73 65 6c 65 |)) tapes|try-sele|
|000003e0| 63 74 2d 66 72 61 6d 65 | 20 74 61 70 65 73 74 72 |ct-frame| tapestr|
|000003f0| 79 2d 77 69 6e 64 6f 77 | 2d 6d 61 70 20 74 61 70 |y-window|-map tap|
|00000400| 65 73 74 72 79 2d 62 75 | 66 66 65 72 2d 6d 61 70 |estry-bu|ffer-map|
|00000410| 20 74 61 70 65 73 74 72 | 79 2d 70 6f 73 69 74 69 | tapestr|y-positi|
|00000420| 6f 6e 2d 6d 61 70 5d 20 | 35 20 22 5c 0a 52 65 74 |on-map] |5 "\.Ret|
|00000430| 75 72 6e 73 20 61 20 6c | 69 73 74 20 63 6f 6e 74 |urns a l|ist cont|
|00000440| 61 69 6e 69 6e 67 20 63 | 6f 6d 70 6c 65 74 65 20 |aining c|omplete |
|00000450| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 61 62 6f 75 |informat|ion abou|
|00000460| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 0a 63 6f |t the cu|rrent.co|
|00000470| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 6f 66 20 45 |nfigurat|ion of E|
|00000480| 6d 61 63 73 20 66 72 61 | 6d 65 73 2c 20 77 69 6e |macs fra|mes, win|
|00000490| 64 6f 77 73 2c 20 62 75 | 66 66 65 72 73 20 61 6e |dows, bu|ffers an|
|000004a0| 64 20 63 75 72 73 6f 72 | 0a 70 6f 73 69 74 69 6f |d cursor|.positio|
|000004b0| 6e 73 2e 20 20 43 61 6c | 6c 20 74 68 65 20 66 75 |ns. Cal|l the fu|
|000004c0| 6e 63 74 69 6f 6e 20 73 | 65 74 2d 74 61 70 65 73 |nction s|et-tapes|
|000004d0| 74 72 79 20 77 69 74 68 | 20 74 68 65 20 6c 69 73 |try with| the lis|
|000004e0| 74 20 74 68 61 74 20 74 | 68 69 73 20 66 75 6e 63 |t that t|his func|
|000004f0| 74 69 6f 6e 0a 72 65 74 | 75 72 6e 73 20 74 6f 20 |tion.ret|urns to |
|00000500| 72 65 73 74 6f 72 65 20 | 74 68 65 20 63 6f 6e 66 |restore |the conf|
|00000510| 69 67 75 72 61 74 69 6f | 6e 2e 0a 0a 4f 70 74 69 |iguratio|n...Opti|
|00000520| 6f 6e 61 6c 20 66 69 72 | 73 74 20 61 72 67 20 46 |onal fir|st arg F|
|00000530| 52 41 4d 45 2d 4c 49 53 | 54 20 73 68 6f 75 6c 64 |RAME-LIS|T should|
|00000540| 20 62 65 20 61 20 6c 69 | 73 74 20 6f 66 20 66 72 | be a li|st of fr|
|00000550| 61 6d 65 73 3b 20 6f 6e | 6c 79 0a 63 6f 6e 66 69 |ames; on|ly.confi|
|00000560| 67 75 72 61 74 69 6f 6e | 20 69 6e 66 6f 72 6d 61 |guration| informa|
|00000570| 74 69 6f 6e 20 61 62 6f | 75 74 20 74 68 65 73 65 |tion abo|ut these|
|00000580| 20 66 72 61 6d 65 73 20 | 77 69 6c 6c 20 62 65 20 | frames |will be |
|00000590| 72 65 74 75 72 6e 65 64 | 2e 0a 0a 54 68 65 20 63 |returned|...The c|
|000005a0| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 69 6e 66 |onfigura|tion inf|
|000005b0| 6f 72 6d 61 74 69 6f 6e | 20 69 73 20 72 65 74 75 |ormation| is retu|
|000005c0| 72 6e 65 64 20 69 6e 20 | 61 20 66 6f 72 6d 20 74 |rned in |a form t|
|000005d0| 68 61 74 20 63 61 6e 20 | 62 65 20 73 61 76 65 64 |hat can |be saved|
|000005e0| 20 61 6e 64 0a 72 65 73 | 74 6f 72 65 64 20 61 63 | and.res|tored ac|
|000005f0| 72 6f 73 73 20 6d 75 6c | 74 69 70 6c 65 20 45 6d |ross mul|tiple Em|
|00000600| 61 63 73 20 73 65 73 73 | 69 6f 6e 73 2e 22 5d 29 |acs sess|ions."])|
|00000610| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 74 2d |.(defali|as 'set-|
|00000620| 74 61 70 65 73 74 72 79 | 20 23 5b 28 6d 61 70 20 |tapestry| #[(map |
|00000630| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 20 72 6f 6f 74 |&optiona|l n root|
|00000640| 2d 77 69 6e 64 6f 77 2d | 65 64 67 65 73 29 20 22 |-window-|edges) "|
|00000650| c0 20 c1 89 89 89 89 1a | 1b 1c 1d 1e 06 1e 07 0e |. ......|........|
|00000660| 08 40 14 0e 08 41 40 13 | 0e 09 ab 87 0e 5c 6e ac |.@...A@.|.....\n.|
|00000670| 83 cb 16 5c 6e 0e 5c 6e | ab ac c1 1e 0c 0e 5c 6e |...\n.\n|......\n|
|00000680| 53 0b 38 89 12 ac 86 cd | ce 0e 5c 6e 5c 22 88 cf |S.8.....|..\n\"..|
|00000690| 5c 6e 40 0e 09 5c 22 16 | 0c d0 5c 6e 41 40 0e 0c |\n@..\".|..\nA@..|
|000006a0| 5c 22 88 d1 d2 5c 6e 38 | 0e 0c 5c 22 29 aa af d3 |\"...\n8|..\")...|
|000006b0| 0c 21 88 d4 20 9f 15 d5 | 8e 0b ad a1 d6 0d 40 21 |.!.. ...|......@!|
|000006c0| 88 cf 0b 40 40 21 88 d0 | 0b 40 41 40 21 88 d1 d2 |...@@!..|.@A@!...|
|000006d0| 0b 40 38 21 88 0b 41 13 | 0d 41 15 aa 5c 5c 29 2e |.@8!..A.|.A..\\).|
|000006e0| 06 87 22 20 5b 74 61 70 | 65 73 74 72 79 2d 73 65 |.." [tap|estry-se|
|000006f0| 6c 65 63 74 65 64 2d 66 | 72 61 6d 65 20 6e 69 6c |lected-f|rame nil|
|00000700| 20 6f 74 68 65 72 2d 6d | 61 70 20 6f 74 68 65 72 | other-m|ap other|
|00000710| 2d 6d 61 70 73 20 66 72 | 61 6d 65 2d 6d 61 70 20 |-maps fr|ame-map |
|00000720| 66 72 61 6d 65 2d 6c 69 | 73 74 20 74 61 70 65 73 |frame-li|st tapes|
|00000730| 74 72 79 2d 77 69 6e 64 | 6f 77 73 2d 63 68 61 6e |try-wind|ows-chan|
|00000740| 67 65 64 20 73 66 20 6d | 61 70 20 72 6f 6f 74 2d |ged sf m|ap root-|
|00000750| 77 69 6e 64 6f 77 2d 65 | 64 67 65 73 20 6e 20 31 |window-e|dges n 1|
|00000760| 20 66 69 72 73 74 2d 77 | 69 6e 64 6f 77 20 65 72 | first-w|indow er|
|00000770| 72 6f 72 20 22 4e 6f 20 | 73 75 63 68 20 6d 61 70 |ror "No |such map|
|00000780| 2c 20 25 64 22 20 74 61 | 70 65 73 74 72 79 2d 73 |, %d" ta|pestry-s|
|00000790| 65 74 2d 77 69 6e 64 6f | 77 2d 6d 61 70 20 74 61 |et-windo|w-map ta|
|000007a0| 70 65 73 74 72 79 2d 73 | 65 74 2d 62 75 66 66 65 |pestry-s|et-buffe|
|000007b0| 72 2d 6d 61 70 20 74 61 | 70 65 73 74 72 79 2d 73 |r-map ta|pestry-s|
|000007c0| 65 74 2d 70 6f 73 69 74 | 69 6f 6e 2d 6d 61 70 20 |et-posit|ion-map |
|000007d0| 32 20 74 61 70 65 73 74 | 72 79 2d 73 65 74 2d 66 |2 tapest|ry-set-f|
|000007e0| 72 61 6d 65 2d 6d 61 70 | 20 74 61 70 65 73 74 72 |rame-map| tapestr|
|000007f0| 79 2d 66 72 61 6d 65 2d | 6c 69 73 74 20 28 28 62 |y-frame-|list ((b|
|00000800| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 21 ab 84 c2 |yte-code| "..!...|
|00000810| 09 21 88 c0 87 22 20 5b | 74 61 70 65 73 74 72 79 |.!..." [|tapestry|
|00000820| 2d 66 72 61 6d 65 2d 6c | 69 76 65 2d 70 20 73 66 |-frame-l|ive-p sf|
|00000830| 20 74 61 70 65 73 74 72 | 79 2d 73 65 6c 65 63 74 | tapestr|y-select|
|00000840| 2d 66 72 61 6d 65 5d 20 | 32 29 29 20 74 61 70 65 |-frame] |2)) tape|
|00000850| 73 74 72 79 2d 73 65 6c | 65 63 74 2d 66 72 61 6d |stry-sel|ect-fram|
|00000860| 65 5d 20 37 20 22 5c 0a | 52 65 73 74 6f 72 65 20 |e] 7 "\.|Restore |
|00000870| 74 68 65 20 66 72 61 6d | 65 2f 77 69 6e 64 6f 77 |the fram|e/window|
|00000880| 2f 62 75 66 66 65 72 20 | 63 6f 6e 66 69 67 75 72 |/buffer |configur|
|00000890| 61 74 69 6f 6e 20 64 65 | 73 63 72 69 62 65 64 20 |ation de|scribed |
|000008a0| 62 79 20 4d 41 50 2c 0a | 77 68 69 63 68 20 73 68 |by MAP,.|which sh|
|000008b0| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 20 70 |ould be |a list p|
|000008c0| 72 65 76 69 6f 75 73 6c | 79 20 72 65 74 75 72 6e |reviousl|y return|
|000008d0| 65 64 20 62 79 20 61 20 | 63 61 6c 6c 20 74 6f 0a |ed by a |call to.|
|000008e0| 74 61 70 65 73 74 72 79 | 2e 0a 0a 4f 70 74 69 6f |tapestry|...Optio|
|000008f0| 6e 61 6c 20 73 65 63 6f | 6e 64 20 61 72 67 20 4e |nal seco|nd arg N|
|00000900| 20 63 61 75 73 65 73 20 | 66 72 61 6d 65 20 72 65 | causes |frame re|
|00000910| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 74 6f |configur|ation to|
|00000920| 20 62 65 20 73 6b 69 70 | 70 65 64 0a 61 6e 64 20 | be skip|ped.and |
|00000930| 74 68 65 20 77 69 6e 64 | 6f 77 73 20 6f 66 20 74 |the wind|ows of t|
|00000940| 68 65 20 63 75 72 72 65 | 6e 74 20 66 72 61 6d 65 |he curre|nt frame|
|00000950| 20 77 69 6c 6c 20 63 6f | 6e 66 69 67 75 72 65 64 | will co|nfigured|
|00000960| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 0a 74 68 | accordi|ng to.th|
|00000970| 65 20 77 69 6e 64 6f 77 | 20 6d 61 70 20 6f 66 20 |e window| map of |
|00000980| 74 68 65 20 4e 74 68 20 | 66 72 61 6d 65 20 69 6e |the Nth |frame in|
|00000990| 20 4d 41 50 2e 0a 0a 4f | 70 74 69 6f 6e 61 6c 20 | MAP...O|ptional |
|000009a0| 74 68 69 72 64 20 61 72 | 67 20 52 4f 4f 54 2d 57 |third ar|g ROOT-W|
|000009b0| 49 4e 44 4f 57 2d 45 44 | 47 45 53 20 6e 6f 6e 2d |INDOW-ED|GES non-|
|000009c0| 6e 69 6c 20 73 68 6f 75 | 6c 64 20 62 65 20 61 20 |nil shou|ld be a |
|000009d0| 6c 69 73 74 0a 63 6f 6e | 74 61 69 6e 69 6e 67 20 |list.con|taining |
|000009e0| 74 68 65 20 65 64 67 65 | 73 20 6f 66 20 61 20 77 |the edge|s of a w|
|000009f0| 69 6e 64 6f 77 20 69 6e | 20 74 68 65 20 63 75 72 |indow in| the cur|
|00000a00| 72 65 6e 74 20 66 72 61 | 6d 65 2e 20 20 54 68 69 |rent fra|me. Thi|
|00000a10| 73 20 6c 69 73 74 0a 73 | 68 6f 75 6c 64 20 62 65 |s list.s|hould be|
|00000a20| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 66 6f 72 | in the |same for|
|00000a30| 6d 20 61 73 20 72 65 74 | 75 72 6e 65 64 20 62 79 |m as ret|urned by|
|00000a40| 20 74 68 65 20 60 77 69 | 6e 64 6f 77 2d 65 64 67 | the `wi|ndow-edg|
|00000a50| 65 73 27 0a 66 75 6e 63 | 74 69 6f 6e 2e 20 20 54 |es'.func|tion. T|
|00000a60| 68 65 20 77 69 6e 64 6f | 77 20 63 6f 6e 66 69 67 |he windo|w config|
|00000a70| 75 72 61 74 69 6f 6e 20 | 66 72 6f 6d 20 4d 41 50 |uration |from MAP|
|00000a80| 20 77 69 6c 6c 20 62 65 | 20 72 65 73 74 6f 72 65 | will be| restore|
|00000a90| 64 20 69 6e 0a 74 68 69 | 73 20 77 69 6e 64 6f 77 |d in.thi|s window|
|00000aa0| 2e 20 20 49 66 20 6e 6f | 20 77 69 6e 64 6f 77 20 |. If no| window |
|00000ab0| 77 69 74 68 20 74 68 65 | 73 65 20 65 78 61 63 74 |with the|se exact|
|00000ac0| 20 65 64 67 65 73 20 65 | 78 69 73 74 73 2c 20 61 | edges e|xists, a|
|00000ad0| 0a 77 69 6e 64 6f 77 20 | 74 68 61 74 20 6c 69 65 |.window |that lie|
|00000ae0| 73 20 65 6e 74 69 72 65 | 6c 79 20 77 69 74 68 69 |s entire|ly withi|
|00000af0| 6e 20 74 68 65 20 65 64 | 67 65 20 63 6f 6f 72 64 |n the ed|ge coord|
|00000b00| 69 6e 61 74 65 73 20 77 | 69 6c 6c 20 62 65 0a 65 |inates w|ill be.e|
|00000b10| 78 70 61 6e 64 65 64 20 | 75 6e 74 69 6c 20 74 68 |xpanded |until th|
|00000b20| 65 20 65 64 67 65 20 63 | 6f 6f 72 64 69 6e 61 74 |e edge c|oordinat|
|00000b30| 65 73 20 6d 61 74 63 68 | 20 6f 72 20 74 68 65 20 |es match| or the |
|00000b40| 77 69 6e 64 6f 77 20 62 | 6f 75 6e 64 65 64 20 62 |window b|ounded b|
|00000b50| 79 0a 52 4f 4f 54 2d 57 | 49 4e 44 4f 57 2d 45 44 |y.ROOT-W|INDOW-ED|
|00000b60| 47 45 53 20 69 73 20 65 | 6e 74 69 72 65 6c 79 20 |GES is e|ntirely |
|00000b70| 63 6f 6e 74 61 69 6e 65 | 64 20 77 69 74 68 69 6e |containe|d within|
|00000b80| 20 74 68 65 20 65 78 70 | 61 6e 64 65 64 0a 77 69 | the exp|anded.wi|
|00000b90| 6e 64 6f 77 2e 20 20 49 | 66 20 6e 6f 20 77 69 6e |ndow. I|f no win|
|00000ba0| 64 6f 77 20 65 6e 74 69 | 72 65 6c 79 20 77 69 74 |dow enti|rely wit|
|00000bb0| 68 69 6e 20 74 68 65 20 | 52 4f 4f 54 2d 57 49 4e |hin the |ROOT-WIN|
|00000bc0| 44 4f 57 2d 45 44 47 45 | 53 20 65 64 67 65 0a 63 |DOW-EDGE|S edge.c|
|00000bd0| 6f 6f 72 64 69 6e 61 74 | 65 73 20 63 61 6e 20 62 |oordinat|es can b|
|00000be0| 65 20 66 6f 75 6e 64 2c | 20 74 68 65 20 77 69 6e |e found,| the win|
|00000bf0| 64 6f 77 20 77 69 74 68 | 20 74 68 65 20 67 72 65 |dow with| the gre|
|00000c00| 61 74 65 73 74 20 6f 76 | 65 72 6c 61 70 20 6f 66 |atest ov|erlap of|
|00000c10| 0a 52 4f 4f 54 2d 57 49 | 4e 44 4f 57 2d 45 44 47 |.ROOT-WI|NDOW-EDG|
|00000c20| 45 53 20 77 69 6c 6c 20 | 62 65 20 75 73 65 64 2e |ES will |be used.|
|00000c30| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00000c40| 61 70 65 73 74 72 79 2d | 66 72 61 6d 65 2d 6d 61 |apestry-|frame-ma|
|00000c50| 70 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 20 5c 22 c3 |p #[nil |"... \".|
|00000c60| 89 89 1c 1d 1e 06 89 1e | 07 16 06 c2 20 14 0e 06 |........|.... ...|
|00000c70| ab ac c8 0e 06 40 b7 89 | 15 ab 99 c9 0d 41 21 ab |.....@..|.....A!.|
|00000c80| 93 ca 0d 41 21 0c 40 61 | ab 86 0d cb a1 88 aa 84 |...A!.@a|........|
|00000c90| 0d cc a1 88 0e 06 41 16 | 06 0c 41 14 aa 50 0e 07 |......A.|..A..P..|
|00000ca0| 2c 87 22 20 5b 6d 61 70 | 63 61 72 20 74 61 70 65 |,." [map|car tape|
|00000cb0| 73 74 72 79 2d 66 72 61 | 6d 65 2d 70 61 72 61 6d |stry-fra|me-param|
|00000cc0| 65 74 65 72 73 20 74 61 | 70 65 73 74 72 79 2d 66 |eters ta|pestry-f|
|00000cd0| 72 61 6d 65 2d 6c 69 73 | 74 20 6e 69 6c 20 66 72 |rame-lis|t nil fr|
|00000ce0| 61 6d 65 2d 6c 69 73 74 | 20 63 65 6c 6c 20 6c 69 |ame-list| cell li|
|00000cf0| 73 74 20 6d 61 70 20 6d | 69 6e 69 62 75 66 66 65 |st map m|inibuffe|
|00000d00| 72 20 77 69 6e 64 6f 77 | 70 20 74 61 70 65 73 74 |r window|p tapest|
|00000d10| 72 79 2d 77 69 6e 64 6f | 77 2d 66 72 61 6d 65 20 |ry-windo|w-frame |
|00000d20| 74 20 6e 6f 6e 65 5d 20 | 35 5d 29 0a 28 64 65 66 |t none] |5]).(def|
|00000d30| 61 6c 69 61 73 20 27 74 | 61 70 65 73 74 72 79 2d |alias 't|apestry-|
|00000d40| 73 65 74 2d 66 72 61 6d | 65 2d 6d 61 70 20 23 5b |set-fram|e-map #[|
|00000d50| 28 6d 61 70 29 20 22 c0 | 20 19 5c 6e ab 8b c3 5c |(map) ".| .\n...\|
|00000d60| 6e 40 21 88 5c 6e 41 89 | 12 ac 75 09 ad 8c c4 09 |n@!.\nA.|..u.....|
|00000d70| 40 21 88 09 41 89 11 ac | 75 c5 29 87 22 20 5b 74 |@!..A...|u.)." [t|
|00000d80| 61 70 65 73 74 72 79 2d | 66 72 61 6d 65 2d 6c 69 |apestry-|frame-li|
|00000d90| 73 74 20 64 6f 6f 6d 65 | 64 2d 66 72 61 6d 65 73 |st doome|d-frames|
|00000da0| 20 6d 61 70 20 74 61 70 | 65 73 74 72 79 2d 6d 61 | map tap|estry-ma|
|00000db0| 6b 65 2d 66 72 61 6d 65 | 20 74 61 70 65 73 74 72 |ke-frame| tapestr|
|00000dc0| 79 2d 64 65 6c 65 74 65 | 2d 66 72 61 6d 65 20 6e |y-delete|-frame n|
|00000dd0| 69 6c 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |il] 3]).|(defalia|
|00000de0| 73 20 27 74 61 70 65 73 | 74 72 79 2d 77 69 6e 64 |s 'tapes|try-wind|
|00000df0| 6f 77 2d 6d 61 70 20 23 | 5b 6e 69 6c 20 22 c0 89 |ow-map #|[nil "..|
|00000e00| 89 89 89 89 89 19 1a 1b | 1c 1d 1e 06 1e 07 c8 c9 |........|........|
|00000e10| ca 20 5c 22 16 07 0e 07 | 41 83 a3 00 0e 07 16 06 |. \"....|A.......|
|00000e20| 0e 06 41 ab 71 0e 06 41 | 15 cb 0e 06 40 21 14 cb |..A.q..A|....@!..|
|00000e30| 0d 40 21 13 0c 40 0b 40 | 55 ad 87 cc 0c 38 cc 0b |.@!..@.@|U....8..|
|00000e40| 38 55 12 0c 41 40 0b 41 | 40 55 ad 87 cd 0c 38 cd |8U..A@.A|@U....8.|
|00000e50| 0b 38 55 11 5c 6e ac 8b | 09 ac 88 0e 06 41 89 16 |.8U.\n..|.....A..|
|00000e60| 06 aa 40 5c 6e ab 88 0e | 06 40 40 ce 61 ac 8b 09 |..@\n...|.@@.a...|
|00000e70| ab 98 0e 06 40 40 cf 61 | ab 90 0e 06 40 0d 40 43 |....@@.a|....@.@C|
|00000e80| a4 88 0e 06 0d 41 a1 88 | aa 18 0e 06 5c 6e ab 83 |.....A..|....\n..|
|00000e90| ce aa 81 cf 0e 06 40 0d | 40 45 a0 88 0e 06 0d 41 |......@.|@E.....A|
|00000ea0| a1 88 82 21 00 0e 07 40 | 2e 07 87 22 20 5b 6e 69 |...!...@|..." [ni|
|00000eb0| 6c 20 79 2d 75 6e 63 68 | 61 6e 67 65 64 20 78 2d |l y-unch|anged x-|
|00000ec0| 75 6e 63 68 61 6e 67 65 | 64 20 6d 61 70 31 2d 65 |unchange|d map1-e|
|00000ed0| 64 67 65 73 20 6d 61 70 | 30 2d 65 64 67 65 73 20 |dges map|0-edges |
|00000ee0| 6d 61 70 31 20 6d 61 70 | 30 20 6d 61 70 73 20 6d |map1 map|0 maps m|
|00000ef0| 61 70 63 61 72 20 74 61 | 70 65 73 74 72 79 2d 77 |apcar ta|pestry-w|
|00000f00| 69 6e 64 6f 77 2d 65 64 | 67 65 73 20 74 61 70 65 |indow-ed|ges tape|
|00000f10| 73 74 72 79 2d 77 69 6e | 64 6f 77 2d 6c 69 73 74 |stry-win|dow-list|
|00000f20| 20 74 61 70 65 73 74 72 | 79 2d 66 69 6e 64 2d 77 | tapestr|y-find-w|
|00000f30| 69 6e 64 6f 77 2d 6d 61 | 70 2d 65 64 67 65 73 20 |indow-ma|p-edges |
|00000f40| 32 20 33 20 2d 20 7c 5d | 20 38 5d 29 0a 28 64 65 |2 3 - |]| 8]).(de|
|00000f50| 66 61 6c 69 61 73 20 27 | 74 61 70 65 73 74 72 79 |falias '|tapestry|
|00000f60| 2d 73 65 74 2d 77 69 6e | 64 6f 77 2d 6d 61 70 20 |-set-win|dow-map |
|00000f70| 23 5b 28 6d 61 70 20 26 | 6f 70 74 69 6f 6e 61 6c |#[(map &|optional|
|00000f80| 20 72 6f 6f 74 2d 77 69 | 6e 64 6f 77 2d 65 64 67 | root-wi|ndow-edg|
|00000f90| 65 73 29 20 22 c0 09 21 | c2 09 21 c3 1c 1d 1e 06 |es) "..!|..!.....|
|00000fa0| 0e 07 83 cf 00 c3 89 89 | 89 89 89 89 89 1e 08 1e |........|........|
|00000fb0| 09 1e 5c 6e 1e 0b 1e 0c | 1e 0d 1e 0e 1e 0f 0c 84 |..\n....|........|
|00000fc0| bf 00 c3 16 0c c3 16 0b | c3 16 5c 6e d0 16 09 d1 |........|..\n....|
|00000fd0| 20 89 16 0f ab dd d2 0e | 0f 40 21 16 0e d3 0e 0e | .......|.@!.....|
|00000fe0| 21 16 0d 0e 0e 0e 07 6b | ab 8b 0e 0f 40 16 0c c3 |!......k|....@...|
|00000ff0| 89 16 0f aa 5f d4 0e 0e | 0e 07 5c 22 89 16 08 ab |...._...|..\"....|
|00001000| 86 d3 0e 08 21 aa 81 d5 | 16 08 d3 0e 0e 21 16 0d |....!...|.....!..|
|00001010| 0e 09 0e 08 57 ab 89 0e | 08 16 09 0e 0f 40 16 5c |....W...|.....@.\|
|00001020| 6e 0e 0d 0e 08 55 ab 85 | 0e 0f 40 16 0b 0e 0f 41 |n....U..|..@....A|
|00001030| 89 16 0f ac 23 0e 0c ab | 86 0e 0c 89 14 aa 03 0e |....#...|........|
|00001040| 0b ab 8e d6 d7 21 84 28 | 00 d8 0e 0b 21 88 82 28 |.....!.(|....!..(|
|00001050| 00 0e 5c 6e 89 14 83 2c | 00 d9 09 0e 06 0d 0c 24 |..\n...,|.......$|
|00001060| 88 d7 16 1a 0c 2e 08 aa | 9e db 09 0e 06 0d 23 ab |........|......#.|
|00001070| 84 dc 20 aa 92 dd 20 88 | de 20 14 d9 09 0e 06 0d |.. ... .|. ......|
|00001080| 0c 24 88 d7 16 1a 0c 2b | 87 22 20 5b 74 61 70 65 |.$.....+|." [tape|
|00001090| 73 74 72 79 2d 63 6f 6d | 70 75 74 65 2d 6d 61 70 |stry-com|pute-map|
|000010a0| 2d 77 69 64 74 68 20 6d | 61 70 20 74 61 70 65 73 |-width m|ap tapes|
|000010b0| 74 72 79 2d 63 6f 6d 70 | 75 74 65 2d 6d 61 70 2d |try-comp|ute-map-|
|000010c0| 68 65 69 67 68 74 20 6e | 69 6c 20 72 6f 6f 74 2d |height n|il root-|
|000010d0| 77 69 6e 64 6f 77 20 6d | 61 70 2d 68 65 69 67 68 |window m|ap-heigh|
|000010e0| 74 20 6d 61 70 2d 77 69 | 64 74 68 20 72 6f 6f 74 |t map-wi|dth root|
|000010f0| 2d 77 69 6e 64 6f 77 2d | 65 64 67 65 73 20 6f 76 |-window-|edges ov|
|00001100| 65 72 6c 61 70 20 6d 61 | 78 2d 6f 76 65 72 6c 61 |erlap ma|x-overla|
|00001110| 70 20 6f 76 65 72 6c 61 | 70 2d 77 20 69 6e 73 69 |p overla|p-w insi|
|00001120| 64 65 2d 77 20 65 78 61 | 63 74 2d 77 20 77 2d 61 |de-w exa|ct-w w-a|
|00001130| 72 65 61 20 77 2d 65 64 | 67 65 73 20 77 2d 6c 69 |rea w-ed|ges w-li|
|00001140| 73 74 20 2d 31 20 74 61 | 70 65 73 74 72 79 2d 77 |st -1 ta|pestry-w|
|00001150| 69 6e 64 6f 77 2d 6c 69 | 73 74 20 74 61 70 65 73 |indow-li|st tapes|
|00001160| 74 72 79 2d 77 69 6e 64 | 6f 77 2d 65 64 67 65 73 |try-wind|ow-edges|
|00001170| 20 74 61 70 65 73 74 72 | 79 2d 77 69 6e 64 6f 77 | tapestr|y-window|
|00001180| 2d 61 72 65 61 20 74 61 | 70 65 73 74 72 79 2d 77 |-area ta|pestry-w|
|00001190| 69 6e 64 6f 77 2d 6f 76 | 65 72 6c 61 70 20 30 20 |indow-ov|erlap 0 |
|000011a0| 6f 6e 65 2d 77 69 6e 64 | 6f 77 2d 70 20 74 20 64 |one-wind|ow-p t d|
|000011b0| 65 6c 65 74 65 2d 77 69 | 6e 64 6f 77 20 74 61 70 |elete-wi|ndow tap|
|000011c0| 65 73 74 72 79 2d 61 70 | 70 6c 79 2d 77 69 6e 64 |estry-ap|ply-wind|
|000011d0| 6f 77 2d 6d 61 70 20 74 | 61 70 65 73 74 72 79 2d |ow-map t|apestry-|
|000011e0| 77 69 6e 64 6f 77 73 2d | 63 68 61 6e 67 65 64 20 |windows-|changed |
|000011f0| 74 61 70 65 73 74 72 79 | 2d 77 69 6e 64 6f 77 73 |tapestry|-windows|
|00001200| 2d 6d 61 74 63 68 2d 6d | 61 70 20 74 61 70 65 73 |-match-m|ap tapes|
|00001210| 74 72 79 2d 66 69 72 73 | 74 2d 77 69 6e 64 6f 77 |try-firs|t-window|
|00001220| 20 64 65 6c 65 74 65 2d | 6f 74 68 65 72 2d 77 69 | delete-|other-wi|
|00001230| 6e 64 6f 77 73 20 73 65 | 6c 65 63 74 65 64 2d 77 |ndows se|lected-w|
|00001240| 69 6e 64 6f 77 5d 20 39 | 5d 29 0a 28 64 65 66 61 |indow] 9|]).(defa|
|00001250| 6c 69 61 73 20 27 74 61 | 70 65 73 74 72 79 2d 62 |lias 'ta|pestry-b|
|00001260| 75 66 66 65 72 2d 6d 61 | 70 20 23 5b 6e 69 6c 20 |uffer-ma|p #[nil |
|00001270| 22 c0 20 c1 89 1a 1b 89 | 1c ab 95 c5 0c 40 21 13 |". .....|.....@!.|
|00001280| c6 0b 21 c7 0b 21 44 5c | 6e 42 12 0c 41 89 14 ac |..!..!D\|nB..A...|
|00001290| 6b 5c 6e 9f 2b 87 22 20 | 5b 74 61 70 65 73 74 72 |k\n.+." |[tapestr|
|000012a0| 79 2d 77 69 6e 64 6f 77 | 2d 6c 69 73 74 20 6e 69 |y-window|-list ni|
|000012b0| 6c 20 6c 69 73 74 20 62 | 20 77 2d 6c 69 73 74 20 |l list b| w-list |
|000012c0| 77 69 6e 64 6f 77 2d 62 | 75 66 66 65 72 20 62 75 |window-b|uffer bu|
|000012d0| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 62 |ffer-fil|e-name b|
|000012e0| 75 66 66 65 72 2d 6e 61 | 6d 65 5d 20 34 5d 29 0a |uffer-na|me] 4]).|
|000012f0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 70 65 73 |(defalia|s 'tapes|
|00001300| 74 72 79 2d 73 65 74 2d | 62 75 66 66 65 72 2d 6d |try-set-|buffer-m|
|00001310| 61 70 20 23 5b 28 62 75 | 66 66 65 72 2d 6d 61 70 |ap #[(bu|ffer-map|
|00001320| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 72 73 74 | &option|al first|
|00001330| 2d 77 69 6e 64 6f 77 29 | 20 22 c0 09 21 c2 89 89 |-window)| "..!...|
|00001340| 1b 1c 1d 1e 06 0e 06 ad | c0 0e 07 ad bc 0e 07 40 |........|.......@|
|00001350| 89 13 40 ab 8c c8 0b 40 | 21 ae 8b c9 0b 40 21 aa |..@....@|!....@!.|
|00001360| 85 ca 0b 41 40 21 14 cb | 0e 06 40 21 15 0e 0c ac |...A@!..|..@!....|
|00001370| 85 0c 0d 61 ac 87 cd 0e | 06 40 0c 5c 22 88 0e 06 |...a....|.@.\"...|
|00001380| 41 16 06 0e 07 41 16 07 | aa 3c 2c 87 22 20 5b 74 |A....A..|.<,." [t|
|00001390| 61 70 65 73 74 72 79 2d | 77 69 6e 64 6f 77 2d 6c |apestry-|window-l|
|000013a0| 69 73 74 20 66 69 72 73 | 74 2d 77 69 6e 64 6f 77 |ist firs|t-window|
|000013b0| 20 6e 69 6c 20 63 65 6c | 6c 20 70 72 6f 70 6f 73 | nil cel|l propos|
|000013c0| 65 64 2d 77 62 20 63 75 | 72 72 65 6e 74 2d 77 62 |ed-wb cu|rrent-wb|
|000013d0| 20 77 2d 6c 69 73 74 20 | 62 75 66 66 65 72 2d 6d | w-list |buffer-m|
|000013e0| 61 70 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |ap get-f|ile-buff|
|000013f0| 65 72 20 66 69 6e 64 2d | 66 69 6c 65 2d 6e 6f 73 |er find-|file-nos|
|00001400| 65 6c 65 63 74 20 67 65 | 74 2d 62 75 66 66 65 72 |elect ge|t-buffer|
|00001410| 2d 63 72 65 61 74 65 20 | 77 69 6e 64 6f 77 2d 62 |-create |window-b|
|00001420| 75 66 66 65 72 20 74 61 | 70 65 73 74 72 79 2d 77 |uffer ta|pestry-w|
|00001430| 69 6e 64 6f 77 73 2d 63 | 68 61 6e 67 65 64 20 73 |indows-c|hanged s|
|00001440| 65 74 2d 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |et-windo|w-buffer|
|00001450| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|00001460| 27 74 61 70 65 73 74 72 | 79 2d 70 6f 73 69 74 69 |'tapestr|y-positi|
|00001470| 6f 6e 2d 6d 61 70 20 23 | 5b 6e 69 6c 20 22 c0 20 |on-map #|[nil ". |
|00001480| c1 20 c2 1b 1c 1d 0c ab | 9a c6 0c 40 21 c7 0c 40 |. ......|...@!..@|
|00001490| 21 c8 0c 40 21 0c 40 0d | 61 46 0b 42 13 0c 41 89 |!..@!.@.|aF.B..A.|
|000014a0| 14 ac 66 0b 9f 2b 87 22 | 20 5b 73 65 6c 65 63 74 |..f..+."| [select|
|000014b0| 65 64 2d 77 69 6e 64 6f | 77 20 74 61 70 65 73 74 |ed-windo|w tapest|
|000014c0| 72 79 2d 77 69 6e 64 6f | 77 2d 6c 69 73 74 20 6e |ry-windo|w-list n|
|000014d0| 69 6c 20 6c 69 73 74 20 | 77 2d 6c 69 73 74 20 73 |il list |w-list s|
|000014e0| 77 20 77 69 6e 64 6f 77 | 2d 73 74 61 72 74 20 77 |w window|-start w|
|000014f0| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 20 77 69 6e 64 |indow-po|int wind|
|00001500| 6f 77 2d 68 73 63 72 6f | 6c 6c 5d 20 36 5d 29 0a |ow-hscro|ll] 6]).|
|00001510| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 70 65 73 |(defalia|s 'tapes|
|00001520| 74 72 79 2d 73 65 74 2d | 70 6f 73 69 74 69 6f 6e |try-set-|position|
|00001530| 2d 6d 61 70 20 23 5b 28 | 70 6f 73 69 74 69 6f 6e |-map #[(|position|
|00001540| 2d 6d 61 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |-map &op|tional f|
|00001550| 69 72 73 74 2d 77 69 6e | 64 6f 77 29 20 22 c0 09 |irst-win|dow) "..|
|00001560| 21 c2 20 c3 89 1c 1d 1e | 06 1e 07 0e 07 ab cb 0e |!. .....|........|
|00001570| 08 ab c7 0e 08 40 89 14 | 40 ab 88 c9 0e 07 40 0c |.....@..|@.....@.|
|00001580| 40 5c 22 88 0c 41 40 ab | 89 ca 0e 07 40 0c 41 40 |@\"..A@.|....@.A@|
|00001590| 5c 22 88 cb 0c 38 ab 89 | cc 0e 07 40 cb 0c 38 5c |\"...8..|...@..8\|
|000015a0| 22 88 cd 0c 38 ab 84 0e | 07 40 15 ce 0e 07 40 21 |"...8...|.@....@!|
|000015b0| 88 0e 07 41 16 07 0e 08 | 41 16 08 aa 31 ce 0d ae |...A....|A...1...|
|000015c0| 82 0e 06 21 2c 87 22 20 | 5b 74 61 70 65 73 74 72 |...!,." |[tapestr|
|000015d0| 79 2d 77 69 6e 64 6f 77 | 2d 6c 69 73 74 20 66 69 |y-window|-list fi|
|000015e0| 72 73 74 2d 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |rst-wind|ow selec|
|000015f0| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6e 69 6c 20 70 |ted-wind|ow nil p|
|00001600| 20 73 77 20 6f 73 77 20 | 77 2d 6c 69 73 74 20 70 | sw osw |w-list p|
|00001610| 6f 73 69 74 69 6f 6e 2d | 6d 61 70 20 73 65 74 2d |osition-|map set-|
|00001620| 77 69 6e 64 6f 77 2d 73 | 74 61 72 74 20 73 65 74 |window-s|tart set|
|00001630| 2d 77 69 6e 64 6f 77 2d | 70 6f 69 6e 74 20 32 20 |-window-|point 2 |
|00001640| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 68 73 63 72 6f |set-wind|ow-hscro|
|00001650| 6c 6c 20 33 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |ll 3 sel|ect-wind|
|00001660| 6f 77 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |ow] 5]).|(defalia|
|00001670| 73 20 27 74 61 70 65 73 | 74 72 79 2d 61 70 70 6c |s 'tapes|try-appl|
|00001680| 79 2d 77 69 6e 64 6f 77 | 2d 6d 61 70 20 23 5b 28 |y-window|-map #[(|
|00001690| 6d 61 70 20 6d 61 70 2d | 77 69 64 74 68 20 6d 61 |map map-|width ma|
|000016a0| 70 2d 68 65 69 67 68 74 | 20 63 75 72 72 65 6e 74 |p-height| current|
|000016b0| 2d 77 69 6e 64 6f 77 20 | 26 6f 70 74 69 6f 6e 61 |-window |&optiona|
|000016c0| 6c 20 72 6f 6f 74 2d 77 | 69 6e 64 6f 77 2d 77 69 |l root-w|indow-wi|
|000016d0| 64 74 68 20 72 6f 6f 74 | 2d 77 69 6e 64 6f 77 2d |dth root|-window-|
|000016e0| 68 65 69 67 68 74 29 20 | 22 c0 89 c1 1a 1b 1c 0d |height) |".......|
|000016f0| ac 8b c6 0e 07 21 16 08 | c9 0e 07 21 15 0e 5c 6e |.....!..|...!..\n|
|00001700| ab f2 0e 5c 6e 40 a7 ab | 85 c1 16 5c 6e aa df 0e |...\n@..|...\n...|
|00001710| 5c 6e 40 cb 61 ab 84 c1 | 12 aa d4 0e 5c 6e 40 cc |\n@.a...|....\n@.|
|00001720| 61 ab 84 cd 12 aa c9 0e | 5c 6e 41 ab a0 ce 0e 07 |a.......|\nA.....|
|00001730| 5c 6e ab 8c cf 0e 5c 6e | 40 21 0d 5f 0e 10 a5 aa |\n....\n|@!._....|
|00001740| 8b d1 0e 5c 6e 40 21 0e | 08 5f 0e 12 a5 5c 6e 23 |...\n@!.|._...\n#|
|00001750| 88 0e 5c 6e 40 40 a7 ac | 91 d3 0e 5c 6e 40 0e 10 |..\n@@..|...\n@..|
|00001760| 0e 12 0e 07 0d 0e 08 26 | 06 16 07 0e 5c 6e 41 ab |.......&|....\nA.|
|00001770| 87 d4 0e 07 d5 5c 22 16 | 07 0e 5c 6e 41 89 16 5c |.....\".|..\nA..\|
|00001780| 6e ac 0e 0e 07 2b 87 22 | 20 5b 31 20 6e 69 6c 20 |n....+."| [1 nil |
|00001790| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 77 69 6e 64 6f |horizont|al windo|
|000017a0| 77 2d 6d 69 6e 2d 77 69 | 64 74 68 20 77 69 6e 64 |w-min-wi|dth wind|
|000017b0| 6f 77 2d 6d 69 6e 2d 68 | 65 69 67 68 74 20 72 6f |ow-min-h|eight ro|
|000017c0| 6f 74 2d 77 69 6e 64 6f | 77 2d 77 69 64 74 68 20 |ot-windo|w-width |
|000017d0| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 63 75 |window-h|eight cu|
|000017e0| 72 72 65 6e 74 2d 77 69 | 6e 64 6f 77 20 72 6f 6f |rrent-wi|ndow roo|
|000017f0| 74 2d 77 69 6e 64 6f 77 | 2d 68 65 69 67 68 74 20 |t-window|-height |
|00001800| 77 69 6e 64 6f 77 2d 77 | 69 64 74 68 20 6d 61 70 |window-w|idth map|
|00001810| 20 2d 20 7c 20 74 20 73 | 70 6c 69 74 2d 77 69 6e | - | t s|plit-win|
|00001820| 64 6f 77 20 74 61 70 65 | 73 74 72 79 2d 63 6f 6d |dow tape|stry-com|
|00001830| 70 75 74 65 2d 6d 61 70 | 2d 77 69 64 74 68 20 6d |pute-map|-width m|
|00001840| 61 70 2d 77 69 64 74 68 | 20 74 61 70 65 73 74 72 |ap-width| tapestr|
|00001850| 79 2d 63 6f 6d 70 75 74 | 65 2d 6d 61 70 2d 68 65 |y-comput|e-map-he|
|00001860| 69 67 68 74 20 6d 61 70 | 2d 68 65 69 67 68 74 20 |ight map|-height |
|00001870| 74 61 70 65 73 74 72 79 | 2d 61 70 70 6c 79 2d 77 |tapestry|-apply-w|
|00001880| 69 6e 64 6f 77 2d 6d 61 | 70 20 6e 65 78 74 2d 77 |indow-ma|p next-w|
|00001890| 69 6e 64 6f 77 20 30 5d | 20 38 5d 29 0a 28 64 65 |indow 0]| 8]).(de|
|000018a0| 66 61 6c 69 61 73 20 27 | 74 61 70 65 73 74 72 79 |falias '|tapestry|
|000018b0| 2d 77 69 6e 64 6f 77 73 | 2d 6d 61 74 63 68 2d 6d |-windows|-match-m|
|000018c0| 61 70 20 23 5b 28 6d 61 | 70 20 26 6f 70 74 69 6f |ap #[(ma|p &optio|
|000018d0| 6e 61 6c 20 6d 61 70 2d | 77 69 64 74 68 20 6d 61 |nal map-|width ma|
|000018e0| 70 2d 68 65 69 67 68 74 | 20 77 69 6e 64 6f 77 2d |p-height| window-|
|000018f0| 6d 61 70 20 77 69 6e 64 | 6f 77 2d 6d 61 70 2d 77 |map wind|ow-map-w|
|00001900| 69 64 74 68 20 77 69 6e | 64 6f 77 2d 6d 61 70 2d |idth win|dow-map-|
|00001910| 68 65 69 67 68 74 29 20 | 22 08 ac 88 c1 5c 6e 21 |height) |"....\n!|
|00001920| 10 c3 5c 6e 21 14 0d ac | 8d c6 20 15 c3 0d 21 16 |..\n!...|.. ...!.|
|00001930| 07 c1 0d 21 16 08 c9 1e | 5c 6e 5c 6e 40 a7 ab bf |...!....|\n\n@...|
|00001940| 0d 40 a7 85 de 00 5c 6e | 40 0e 08 5f 08 a5 0d 40 |.@....\n|@.._...@|
|00001950| 55 85 de 00 5c 6e 41 40 | 0e 07 5f 0c a5 0d 41 40 |U...\nA@|.._...A@|
|00001960| 55 85 de 00 cb 5c 6e 38 | 0e 08 5f 08 a5 cb 0d 38 |U....\n8|.._....8|
|00001970| 55 85 de 00 cc 5c 6e 38 | 0e 07 5f 0c a5 cc 0d 38 |U....\n8|.._....8|
|00001980| 55 aa fc 5c 6e 40 cd 61 | ab b9 0d 40 cd 61 ad f0 |U..\n@.a|...@.a..|
|00001990| 5c 6e 41 12 0d 41 15 0e | 5c 6e ab 9d 5c 6e ab 9a |\nA..A..|\n..\n..|
|000019a0| 0d ab 97 ce 5c 6e 40 08 | 0c 0d 40 0e 08 0e 07 26 |....\n@.|..@....&|
|000019b0| 06 16 5c 6e 5c 6e 41 12 | 0d 41 15 aa 5f 0e 5c 6e |..\n\nA.|.A.._.\n|
|000019c0| ad c5 5c 6e 3f ad c1 0d | 3f aa bd 5c 6e 40 cf 61 |..\n?...|?..\n@.a|
|000019d0| ad b7 0d 40 cf 61 ad b1 | 5c 6e 41 12 0d 41 15 0e |...@.a..|\nA..A..|
|000019e0| 5c 6e ab 9d 5c 6e ab 9a | 0d ab 97 ce 5c 6e 40 08 |\n..\n..|....\n@.|
|000019f0| 0c 0d 40 0e 08 0e 07 26 | 06 16 5c 6e 5c 6e 41 12 |..@....&|..\n\nA.|
|00001a00| 0d 41 15 aa 5f 0e 5c 6e | ad 86 5c 6e 3f ad 82 0d |.A.._.\n|..\n?...|
|00001a10| 3f 29 87 22 20 5b 6d 61 | 70 2d 77 69 64 74 68 20 |?)." [ma|p-width |
|00001a20| 74 61 70 65 73 74 72 79 | 2d 63 6f 6d 70 75 74 65 |tapestry|-compute|
|00001a30| 2d 6d 61 70 2d 77 69 64 | 74 68 20 6d 61 70 20 74 |-map-wid|th map t|
|00001a40| 61 70 65 73 74 72 79 2d | 63 6f 6d 70 75 74 65 2d |apestry-|compute-|
|00001a50| 6d 61 70 2d 68 65 69 67 | 68 74 20 6d 61 70 2d 68 |map-heig|ht map-h|
|00001a60| 65 69 67 68 74 20 77 69 | 6e 64 6f 77 2d 6d 61 70 |eight wi|ndow-map|
|00001a70| 20 74 61 70 65 73 74 72 | 79 2d 77 69 6e 64 6f 77 | tapestr|y-window|
|00001a80| 2d 6d 61 70 20 77 69 6e | 64 6f 77 2d 6d 61 70 2d |-map win|dow-map-|
|00001a90| 68 65 69 67 68 74 20 77 | 69 6e 64 6f 77 2d 6d 61 |height w|indow-ma|
|00001aa0| 70 2d 77 69 64 74 68 20 | 74 20 72 65 73 75 6c 74 |p-width |t result|
|00001ab0| 20 32 20 33 20 2d 20 74 | 61 70 65 73 74 72 79 2d | 2 3 - t|apestry-|
|00001ac0| 77 69 6e 64 6f 77 73 2d | 6d 61 74 63 68 2d 6d 61 |windows-|match-ma|
|00001ad0| 70 20 7c 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 |p |] 7])|.(defali|
|00001ae0| 61 73 20 27 74 61 70 65 | 73 74 72 79 2d 66 69 6e |as 'tape|stry-fin|
|00001af0| 64 2d 77 69 6e 64 6f 77 | 2d 6d 61 70 2d 65 64 67 |d-window|-map-edg|
|00001b00| 65 73 20 23 5b 28 6d 61 | 70 29 20 22 c0 89 19 1a |es #[(ma|p) "....|
|00001b10| 0b 89 12 3a ab 8c 5c 6e | 40 a7 ac 87 5c 6e 41 40 |...:..\n|@...\nA@|
|00001b20| 89 12 aa 71 0b 89 11 3a | ab 95 09 40 a7 ac 90 09 |...q...:|...@....|
|00001b30| 41 ab 86 09 41 89 11 aa | 77 09 40 89 11 aa 68 5c |A...A...|w.@...h\|
|00001b40| 6e 09 61 ab 83 5c 6e aa | 8c c4 5c 6e 21 89 12 41 |n.a..\n.|..\n!..A|
|00001b50| 09 41 41 a1 88 5c 6e 2a | 87 22 20 5b 6e 69 6c 20 |.AA..\n*|." [nil |
|00001b60| 73 65 2d 65 64 67 65 73 | 20 6e 77 2d 65 64 67 65 |se-edges| nw-edge|
|00001b70| 73 20 6d 61 70 20 63 6f | 70 79 2d 73 65 71 75 65 |s map co|py-seque|
|00001b80| 6e 63 65 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |nce] 3])|.(defali|
|00001b90| 61 73 20 27 74 61 70 65 | 73 74 72 79 2d 63 6f 6d |as 'tape|stry-com|
|00001ba0| 70 75 74 65 2d 6d 61 70 | 2d 77 69 64 74 68 20 23 |pute-map|-width #|
|00001bb0| 5b 28 6d 61 70 29 20 22 | c0 09 21 1a c3 5c 6e 38 |[(map) "|..!..\n8|
|00001bc0| 5c 6e 40 5a 29 87 22 20 | 5b 74 61 70 65 73 74 72 |\n@Z)." |[tapestr|
|00001bd0| 79 2d 66 69 6e 64 2d 77 | 69 6e 64 6f 77 2d 6d 61 |y-find-w|indow-ma|
|00001be0| 70 2d 65 64 67 65 73 20 | 6d 61 70 20 65 64 67 65 |p-edges |map edge|
|00001bf0| 73 20 32 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |s 2] 2])|.(defali|
|00001c00| 61 73 20 27 74 61 70 65 | 73 74 72 79 2d 63 6f 6d |as 'tape|stry-com|
|00001c10| 70 75 74 65 2d 6d 61 70 | 2d 68 65 69 67 68 74 20 |pute-map|-height |
|00001c20| 23 5b 28 6d 61 70 29 20 | 22 c0 09 21 1a c3 5c 6e |#[(map) |"..!..\n|
|00001c30| 38 5c 6e 41 40 5a 29 87 | 22 20 5b 74 61 70 65 73 |8\nA@Z).|" [tapes|
|00001c40| 74 72 79 2d 66 69 6e 64 | 2d 77 69 6e 64 6f 77 2d |try-find|-window-|
|00001c50| 6d 61 70 2d 65 64 67 65 | 73 20 6d 61 70 20 65 64 |map-edge|s map ed|
|00001c60| 67 65 73 20 33 5d 20 32 | 5d 29 0a 28 64 65 66 61 |ges 3] 2|]).(defa|
|00001c70| 6c 69 61 73 20 27 74 61 | 70 65 73 74 72 79 2d 64 |lias 'ta|pestry-d|
|00001c80| 65 6c 61 73 73 71 20 23 | 5b 28 65 6c 74 20 6c 69 |elassq #|[(elt li|
|00001c90| 73 74 29 20 22 c0 09 1a | 1b 5c 6e ab a5 0c 5c 6e |st) "...|.\n...\n|
|00001ca0| 40 40 61 ab 96 0b ac 88 | 09 41 89 11 89 12 aa 6c |@@a.....|.A.....l|
|00001cb0| 0b 5c 6e 41 a1 88 5c 6e | 41 89 12 aa 61 5c 6e 13 |.\nA..\n|A...a\n.|
|00001cc0| 5c 6e 41 89 12 ac 5b 09 | 2a 87 22 20 5b 6e 69 6c |\nA...[.|*." [nil|
|00001cd0| 20 6c 69 73 74 20 63 75 | 72 72 20 70 72 65 76 20 | list cu|rr prev |
|00001ce0| 65 6c 74 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |elt] 3])|.(defali|
|00001cf0| 61 73 20 27 74 61 70 65 | 73 74 72 79 2d 72 65 6d |as 'tape|stry-rem|
|00001d00| 6f 76 65 2d 66 72 61 6d | 65 2d 70 61 72 61 6d 65 |ove-fram|e-parame|
|00001d10| 74 65 72 73 20 23 5b 28 | 6d 61 70 20 70 61 72 61 |ters #[(|map para|
|00001d20| 6d 73 29 20 22 c0 19 5c | 6e ad 9c 0b 40 89 11 ab |ms) "..\|n...@...|
|00001d30| 8f 09 c4 5c 6e 40 09 40 | 5c 22 a0 88 09 41 89 11 |...\n@.@|\"...A..|
|00001d40| ac 71 5c 6e 41 89 12 ac | 65 c0 29 87 22 20 5b 6e |.q\nA...|e.)." [n|
|00001d50| 69 6c 20 66 72 61 6d 65 | 2d 6d 61 70 20 70 61 72 |il frame|-map par|
|00001d60| 61 6d 73 20 6d 61 70 20 | 74 61 70 65 73 74 72 79 |ams map |tapestry|
|00001d70| 2d 64 65 6c 61 73 73 71 | 5d 20 35 5d 29 0a 28 64 |-delassq|] 5]).(d|
|00001d80| 65 66 61 6c 69 61 73 20 | 27 74 61 70 65 73 74 72 |efalias |'tapestr|
|00001d90| 79 2d 6e 75 6c 6c 69 66 | 79 2d 74 61 70 65 73 74 |y-nullif|y-tapest|
|00001da0| 72 79 2d 65 6c 65 6d 65 | 6e 74 73 20 23 5b 28 6d |ry-eleme|nts #[(m|
|00001db0| 61 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 75 66 |ap &opti|onal buf|
|00001dc0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 62 75 66 2d 6e |-file-na|me buf-n|
|00001dd0| 61 6d 65 20 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |ame wind|ow-start|
|00001de0| 20 77 69 6e 64 6f 77 2d | 70 6f 69 6e 74 20 77 69 | window-|point wi|
|00001df0| 6e 64 6f 77 2d 68 73 63 | 72 6f 6c 6c 20 73 65 6c |ndow-hsc|roll sel|
|00001e00| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 29 20 22 c0 |ected-wi|ndow) ".|
|00001e10| 19 5c 6e 41 40 89 12 ad | dd 5c 6e 40 41 40 89 11 |.\nA@...|.\n@A@..|
|00001e20| ab 97 0b ab 85 09 40 c0 | a0 88 0c ab 86 09 40 41 |......@.|......@A|
|00001e30| c0 a0 88 09 41 89 11 ac | 69 c5 5c 6e 40 38 89 11 |....A...|i.\n@8..|
|00001e40| ab af 0e 06 ab 85 09 40 | c0 a0 88 0e 07 ab 86 09 |.......@|........|
|00001e50| 40 41 c0 a0 88 0e 08 ab | 87 09 40 41 41 c0 a0 88 |@A......|..@AA...|
|00001e60| 0e 09 ab 87 ca 09 40 9b | c0 a0 88 09 41 89 11 ac |......@.|....A...|
|00001e70| 51 5c 6e 41 89 12 ac 24 | c0 29 87 22 20 5b 6e 69 |Q\nA...$|.)." [ni|
|00001e80| 6c 20 70 20 6d 61 70 20 | 62 75 66 2d 66 69 6c 65 |l p map |buf-file|
|00001e90| 2d 6e 61 6d 65 20 62 75 | 66 2d 6e 61 6d 65 20 32 |-name bu|f-name 2|
|00001ea0| 20 77 69 6e 64 6f 77 2d | 73 74 61 72 74 20 77 69 | window-|start wi|
|00001eb0| 6e 64 6f 77 2d 70 6f 69 | 6e 74 20 77 69 6e 64 6f |ndow-poi|nt windo|
|00001ec0| 77 2d 68 73 63 72 6f 6c | 6c 20 73 65 6c 65 63 74 |w-hscrol|l select|
|00001ed0| 65 64 2d 77 69 6e 64 6f | 77 20 33 5d 20 33 5d 29 |ed-windo|w 3] 3])|
|00001ee0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 70 65 |.(defali|as 'tape|
|00001ef0| 73 74 72 79 2d 72 65 70 | 6c 61 63 65 2d 74 61 70 |stry-rep|lace-tap|
|00001f00| 65 73 74 72 79 2d 65 6c | 65 6d 65 6e 74 20 23 5b |estry-el|ement #[|
|00001f10| 28 6d 61 70 20 77 68 61 | 74 20 66 75 6e 63 74 69 |(map wha|t functi|
|00001f20| 6f 6e 29 20 22 c0 89 89 | 89 89 19 1a 1b 1c 1d 0e |on) "...|........|
|00001f30| 06 c7 61 ab 86 c8 15 c9 | 14 aa ba 0e 06 ca 61 ab |..a.....|......a.|
|00001f40| 86 c8 15 c8 14 aa ae 0e | 06 cb 61 ab 86 cc 15 c9 |........|..a.....|
|00001f50| 14 aa a2 0e 06 cd 61 ab | 86 cc 15 c8 14 aa 96 0e |......a.|........|
|00001f60| 06 ce 61 ab 86 cc 15 cc | 14 aa 8a 0e 06 cf 61 ab |..a.....|......a.|
|00001f70| 84 cc 15 d0 14 0e 11 41 | 40 89 16 11 ad ae 0d 0e |.......A|@.......|
|00001f80| 11 40 38 89 13 ab 9c 0c | 0b 40 38 12 0e 12 5c 6e |.@8.....|.@8...\n|
|00001f90| 21 11 5c 6e 09 6b ac 87 | 0c 0b 40 9b 09 a0 88 0b |!.\n.k..|..@.....|
|00001fa0| 41 89 13 ac 64 0e 11 41 | 89 16 11 ac 53 c0 2d 87 |A...d..A|....S.-.|
|00001fb0| 22 20 5b 6e 69 6c 20 6e | 65 77 20 6f 6c 64 20 70 |" [nil n|ew old p|
|00001fc0| 20 6d 61 70 6a 20 6d 61 | 70 69 20 77 68 61 74 20 | mapj ma|pi what |
|00001fd0| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00001fe0| 20 31 20 30 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 | 1 0 buf|fer-name|
|00001ff0| 20 77 69 6e 64 6f 77 2d | 73 74 61 72 74 20 32 20 | window-|start 2 |
|00002000| 77 69 6e 64 6f 77 2d 70 | 6f 69 6e 74 20 77 69 6e |window-p|oint win|
|00002010| 64 6f 77 2d 68 73 63 72 | 6f 6c 6c 20 73 65 6c 65 |dow-hscr|oll sele|
|00002020| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 33 20 6d 61 |cted-win|dow 3 ma|
|00002030| 70 20 66 75 6e 63 74 69 | 6f 6e 5d 20 36 5d 29 0a |p functi|on] 6]).|
|00002040| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 70 65 73 |(defalia|s 'tapes|
|00002050| 74 72 79 2d 77 69 6e 64 | 6f 77 2d 6c 69 73 74 20 |try-wind|ow-list |
|00002060| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 66 69 72 |#[(&opti|onal fir|
|00002070| 73 74 2d 77 69 6e 64 6f | 77 29 20 22 08 ae 82 c1 |st-windo|w) "....|
|00002080| 20 89 18 c2 42 89 1b 1c | c5 08 c6 5c 22 89 1e 07 | ...B...|...\"...|
|00002090| 08 61 ac 91 0c 0e 07 c2 | 42 a1 14 c5 0e 07 c6 5c |.a......|B......\|
|000020a0| 22 89 16 07 aa 6b 0b 2c | 87 22 20 5b 66 69 72 73 |"....k.,|." [firs|
|000020b0| 74 2d 77 69 6e 64 6f 77 | 20 74 61 70 65 73 74 72 |t-window| tapestr|
|000020c0| 79 2d 66 69 72 73 74 2d | 77 69 6e 64 6f 77 20 6e |y-first-|window n|
|000020d0| 69 6c 20 77 69 6e 64 6f | 77 73 20 63 75 72 72 65 |il windo|ws curre|
|000020e0| 6e 74 2d 63 6f 6e 73 20 | 6e 65 78 74 2d 77 69 6e |nt-cons |next-win|
|000020f0| 64 6f 77 20 6e 6f 6d 69 | 6e 69 20 77 5d 20 34 5d |dow nomi|ni w] 4]|
|00002100| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 70 |).(defal|ias 'tap|
|00002110| 65 73 74 72 79 2d 66 69 | 72 73 74 2d 77 69 6e 64 |estry-fi|rst-wind|
|00002120| 6f 77 20 23 5b 6e 69 6c | 20 22 c0 20 c1 c2 20 21 |ow #[nil| ". .. !|
|00002130| 61 ab 85 c3 c2 20 21 87 | c4 20 c5 c6 20 b7 41 ae |a.... !.|. .. .A.|
|00002140| 81 c7 c8 1e 09 1e 5c 6e | 1e 0b cc 0e 0b 21 89 16 |......\n|.....!..|
|00002150| 09 40 c7 55 ab 89 0e 5c | 6e 0e 09 41 40 59 ac 89 |.@.U...\|n..A@Y..|
|00002160| c3 0e 0b cd 5c 22 16 0b | aa 62 0e 0b 2b 87 22 20 |....\"..|.b..+." |
|00002170| 5b 74 61 70 65 73 74 72 | 79 2d 73 65 6c 65 63 74 |[tapestr|y-select|
|00002180| 65 64 2d 66 72 61 6d 65 | 20 74 61 70 65 73 74 72 |ed-frame| tapestr|
|00002190| 79 2d 77 69 6e 64 6f 77 | 2d 66 72 61 6d 65 20 6d |y-window|-frame m|
|000021a0| 69 6e 69 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |inibuffe|r-window|
|000021b0| 20 6e 65 78 74 2d 77 69 | 6e 64 6f 77 20 73 65 6c | next-wi|ndow sel|
|000021c0| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 6d 65 6e |ected-wi|ndow men|
|000021d0| 75 2d 62 61 72 2d 6c 69 | 6e 65 73 20 74 61 70 65 |u-bar-li|nes tape|
|000021e0| 73 74 72 79 2d 66 72 61 | 6d 65 2d 70 61 72 61 6d |stry-fra|me-param|
|000021f0| 65 74 65 72 73 20 30 20 | 6e 69 6c 20 65 64 67 65 |eters 0 |nil edge|
|00002200| 73 20 74 6f 70 20 77 20 | 74 61 70 65 73 74 72 79 |s top w |tapestry|
|00002210| 2d 77 69 6e 64 6f 77 2d | 65 64 67 65 73 20 6e 6f |-window-|edges no|
|00002220| 6d 69 6e 69 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |mini] 3]|).(defal|
|00002230| 69 61 73 20 27 74 61 70 | 65 73 74 72 79 2d 77 69 |ias 'tap|estry-wi|
|00002240| 6e 64 6f 77 2d 61 72 65 | 61 20 23 5b 28 65 64 67 |ndow-are|a #[(edg|
|00002250| 65 73 29 20 22 c0 09 38 | 09 41 40 5a c2 09 38 09 |es) "..8|.A@Z..8.|
|00002260| 40 5a 5f 87 22 20 5b 33 | 20 65 64 67 65 73 20 32 |@Z_." [3| edges 2|
|00002270| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00002280| 27 74 61 70 65 73 74 72 | 79 2d 77 69 6e 64 6f 77 |'tapestr|y-window|
|00002290| 2d 6f 76 65 72 6c 61 70 | 20 23 5b 28 65 30 20 65 |-overlap| #[(e0 e|
|000022a0| 31 29 20 22 c0 89 89 89 | 19 1a 1b 1c 0d 40 0e 06 |1) "....|.....@..|
|000022b0| 40 58 ab 8f 0e 06 40 c7 | 0d 38 57 ab 86 0e 06 40 |@X....@.|.8W....@|
|000022c0| 13 aa 94 0e 06 40 0d 40 | 58 ab 8c 0d 40 c7 0e 06 |.....@.@|X...@...|
|000022d0| 38 57 ab 83 0d 40 13 0d | 40 c7 0e 06 38 57 ab 91 |8W...@..|@...8W..|
|000022e0| c7 0e 06 38 c7 0d 38 58 | ab 87 c7 0e 06 38 11 aa |...8..8X|.....8..|
|000022f0| 97 0e 06 40 c7 0d 38 57 | ab 8e c7 0d 38 c7 0e 06 |...@..8W|....8...|
|00002300| 38 58 ab 84 c7 0d 38 11 | 0d 41 40 0e 06 41 40 58 |8X....8.|.A@..A@X|
|00002310| ab 91 0e 06 41 40 c8 0d | 38 57 ab 87 0e 06 41 40 |....A@..|8W....A@|
|00002320| 14 aa 98 0e 06 41 40 0d | 41 40 58 ab 8e 0d 41 40 |.....A@.|A@X...A@|
|00002330| c8 0e 06 38 57 ab 84 0d | 41 40 14 0d 41 40 c8 0e |...8W...|A@..A@..|
|00002340| 06 38 57 ab 91 c8 0e 06 | 38 c8 0d 38 58 ab 87 c8 |.8W.....|8..8X...|
|00002350| 0e 06 38 12 aa 98 0e 06 | 41 40 c8 0d 38 57 ab 8e |..8.....|A@..8W..|
|00002360| c8 0d 38 c8 0e 06 38 58 | ab 84 c8 0d 38 12 0b ad |..8...8X|....8...|
|00002370| 8e 0c ad 8b 09 ad 88 5c | 6e ad 85 0b 0c 09 5c 6e |.......\|n.....\n|
|00002380| 46 2c 87 22 20 5b 6e 69 | 6c 20 72 69 67 68 74 20 |F,." [ni|l right |
|00002390| 62 6f 74 74 6f 6d 20 6c | 65 66 74 20 74 6f 70 20 |bottom l|eft top |
|000023a0| 65 30 20 65 31 20 32 20 | 33 5d 20 34 5d 29 0a 28 |e0 e1 2 |3] 4]).(|
|000023b0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 70 65 73 74 |defalias| 'tapest|
|000023c0| 72 79 2d 77 69 6e 64 6f | 77 2d 65 64 67 65 73 20 |ry-windo|w-edges |
|000023d0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 77 69 6e |#[(&opti|onal win|
|000023e0| 64 6f 77 29 20 22 c0 c1 | 21 ab b8 c1 5c 6e 21 c3 |dow) "..|!...\n!.|
|000023f0| 1c 89 1d 89 14 89 40 c6 | c7 21 a5 a0 88 0c 41 89 |......@.|.!....A.|
|00002400| 14 89 40 c8 c7 21 a5 a0 | 88 0c 41 89 14 89 40 c6 |..@..!..|..A...@.|
|00002410| c7 21 a5 a0 88 0c 41 89 | 14 89 40 c8 c7 21 a5 a0 |.!....A.|..@..!..|
|00002420| 88 0d 2a 87 c9 5c 6e 21 | 87 22 20 5b 66 62 6f 75 |..*..\n!|." [fbou|
|00002430| 6e 64 70 20 77 69 6e 64 | 6f 77 2d 70 69 78 65 6c |ndp wind|ow-pixel|
|00002440| 2d 65 64 67 65 73 20 77 | 69 6e 64 6f 77 20 6e 69 |-edges w|indow ni|
|00002450| 6c 20 74 6d 70 20 65 64 | 67 65 73 20 66 61 63 65 |l tmp ed|ges face|
|00002460| 2d 77 69 64 74 68 20 64 | 65 66 61 75 6c 74 20 66 |-width d|efault f|
|00002470| 61 63 65 2d 68 65 69 67 | 68 74 20 77 69 6e 64 6f |ace-heig|ht windo|
|00002480| 77 2d 65 64 67 65 73 5d | 20 35 5d 29 0a 28 64 65 |w-edges]| 5]).(de|
|00002490| 66 61 6c 69 61 73 20 27 | 74 61 70 65 73 74 72 79 |falias '|tapestry|
|000024a0| 2d 66 72 61 6d 65 2d 6c | 69 73 74 20 23 5b 6e 69 |-frame-l|ist #[ni|
|000024b0| 6c 20 22 c0 c1 21 ab 83 | c1 20 87 c2 43 87 22 20 |l "..!..|. ..C." |
|000024c0| 5b 66 62 6f 75 6e 64 70 | 20 66 72 61 6d 65 2d 6c |[fboundp| frame-l|
|000024d0| 69 73 74 20 6e 69 6c 5d | 20 32 5d 29 0a 28 64 65 |ist nil]| 2]).(de|
|000024e0| 66 61 6c 69 61 73 20 27 | 74 61 70 65 73 74 72 79 |falias '|tapestry|
|000024f0| 2d 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 |-frame-p|arameter|
|00002500| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |s #[(&op|tional f|
|00002510| 29 20 22 c0 c1 21 ad 83 | c1 5c 6e 21 87 22 20 5b |) "..!..|.\n!." [|
|00002520| 66 62 6f 75 6e 64 70 20 | 66 72 61 6d 65 2d 70 61 |fboundp |frame-pa|
|00002530| 72 61 6d 65 74 65 72 73 | 20 66 5d 20 32 5d 29 0a |rameters| f] 2]).|
|00002540| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 70 65 73 |(defalia|s 'tapes|
|00002550| 74 72 79 2d 77 69 6e 64 | 6f 77 2d 66 72 61 6d 65 |try-wind|ow-frame|
|00002560| 20 23 5b 28 77 29 20 22 | c0 c1 21 ad 83 c1 5c 6e | #[(w) "|..!...\n|
|00002570| 21 87 22 20 5b 66 62 6f | 75 6e 64 70 20 77 69 6e |!." [fbo|undp win|
|00002580| 64 6f 77 2d 66 72 61 6d | 65 20 77 5d 20 32 5d 29 |dow-fram|e w] 2])|
|00002590| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 70 65 |.(defali|as 'tape|
|000025a0| 73 74 72 79 2d 6d 6f 64 | 69 66 79 2d 66 72 61 6d |stry-mod|ify-fram|
|000025b0| 65 2d 70 61 72 61 6d 65 | 74 65 72 73 20 23 5b 28 |e-parame|ters #[(|
|000025c0| 66 20 61 6c 69 73 74 29 | 20 22 c0 c1 21 ad 84 c1 |f alist)| "..!...|
|000025d0| 5c 6e 0b 5c 22 87 22 20 | 5b 66 62 6f 75 6e 64 70 |\n.\"." |[fboundp|
|000025e0| 20 6d 6f 64 69 66 79 2d | 66 72 61 6d 65 2d 70 61 | modify-|frame-pa|
|000025f0| 72 61 6d 65 74 65 72 73 | 20 66 20 61 6c 69 73 74 |rameters| f alist|
|00002600| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00002610| 27 74 61 70 65 73 74 72 | 79 2d 73 65 6c 65 63 74 |'tapestr|y-select|
|00002620| 2d 66 72 61 6d 65 20 23 | 5b 28 66 29 20 22 c0 c1 |-frame #|[(f) "..|
|00002630| 21 ad 83 c1 5c 6e 21 87 | 22 20 5b 66 62 6f 75 6e |!...\n!.|" [fboun|
|00002640| 64 70 20 73 65 6c 65 63 | 74 2d 66 72 61 6d 65 20 |dp selec|t-frame |
|00002650| 66 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |f] 2]).(|defalias|
|00002660| 20 27 74 61 70 65 73 74 | 72 79 2d 73 65 6c 65 63 | 'tapest|ry-selec|
|00002670| 74 65 64 2d 66 72 61 6d | 65 20 23 5b 6e 69 6c 20 |ted-fram|e #[nil |
|00002680| 22 c0 c1 21 ad 82 c1 20 | 87 22 20 5b 66 62 6f 75 |"..!... |." [fbou|
|00002690| 6e 64 70 20 73 65 6c 65 | 63 74 65 64 2d 66 72 61 |ndp sele|cted-fra|
|000026a0| 6d 65 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |me] 2]).|(defalia|
|000026b0| 73 20 27 74 61 70 65 73 | 74 72 79 2d 6e 65 78 74 |s 'tapes|try-next|
|000026c0| 2d 66 72 61 6d 65 20 23 | 5b 28 26 6f 70 74 69 6f |-frame #|[(&optio|
|000026d0| 6e 61 6c 20 66 20 61 6c | 6c 29 20 22 c0 c1 21 ad |nal f al|l) "..!.|
|000026e0| 84 c1 5c 6e 0b 5c 22 87 | 22 20 5b 66 62 6f 75 6e |..\n.\".|" [fboun|
|000026f0| 64 70 20 6e 65 78 74 2d | 66 72 61 6d 65 20 66 20 |dp next-|frame f |
|00002700| 61 6c 6c 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |all] 3])|.(defali|
|00002710| 61 73 20 27 74 61 70 65 | 73 74 72 79 2d 6d 61 6b |as 'tape|stry-mak|
|00002720| 65 2d 66 72 61 6d 65 20 | 23 5b 28 26 6f 70 74 69 |e-frame |#[(&opti|
|00002730| 6f 6e 61 6c 20 61 6c 69 | 73 74 29 20 22 c0 c1 21 |onal ali|st) "..!|
|00002740| ad 83 c1 5c 6e 21 87 22 | 20 5b 66 62 6f 75 6e 64 |...\n!."| [fbound|
|00002750| 70 20 6d 61 6b 65 2d 66 | 72 61 6d 65 20 61 6c 69 |p make-f|rame ali|
|00002760| 73 74 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |st] 2]).|(defalia|
|00002770| 73 20 27 74 61 70 65 73 | 74 72 79 2d 64 65 6c 65 |s 'tapes|try-dele|
|00002780| 74 65 2d 66 72 61 6d 65 | 20 23 5b 28 26 6f 70 74 |te-frame| #[(&opt|
|00002790| 69 6f 6e 61 6c 20 66 29 | 20 22 c0 c1 21 ad 83 c1 |ional f)| "..!...|
|000027a0| 5c 6e 21 87 22 20 5b 66 | 62 6f 75 6e 64 70 20 64 |\n!." [f|boundp d|
|000027b0| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 66 5d 20 32 |elete-fr|ame f] 2|
|000027c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |]).(defa|lias 'ta|
|000027d0| 70 65 73 74 72 79 2d 66 | 72 61 6d 65 2d 6c 69 76 |pestry-f|rame-liv|
|000027e0| 65 2d 70 20 23 5b 28 66 | 29 20 22 c0 c1 21 ab 84 |e-p #[(f|) "..!..|
|000027f0| c1 5c 6e 21 87 c3 87 22 | 20 5b 66 62 6f 75 6e 64 |.\n!..."| [fbound|
|00002800| 70 20 66 72 61 6d 65 2d | 6c 69 76 65 2d 70 20 66 |p frame-|live-p f|
|00002810| 20 74 5d 20 32 5d 29 0a | | t] 2]).| |
+--------+-------------------------+-------------------------+--------+--------+
